home *** CD-ROM | disk | FTP | other *** search
/ VC CD-ROM Library 4 / VC CD-ROM Library 4.iso / mac / VFW / SETUP.MST;1 < prev    next >
Encoding:
Text File  |  1994-04-25  |  5.7 KB  |  193 lines  |  [TEXT/hscd]
  1. '**************************************************************************
  2. '*                       VfW 1.0 Runtime Setup
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'mscpydis.inc'    ''System
  7. '$INCLUDE 'msdetect.inc'    ''Detects Avalilable Disk Space
  8.  
  9. DECLARE FUNCTION IsValidEnvironment LIB "MSCUISTF.DLL" () As INTEGER
  10. DECLARE FUNCTION GetLastChar LIB "MSCUISTF.DLL" (szStr$) As INTEGER
  11.  
  12. ''Dialog ID's
  13. CONST WELCOME       = 100
  14. CONST ASKQUIT       = 200
  15. CONST DESTPATH      = 300
  16. CONST EXITFAILURE   = 400
  17. CONST EXITQUIT      = 600
  18. CONST EXITSUCCESS   = 700
  19. CONST OPTIONS       = 800
  20. CONST APPHELP       = 900
  21. CONST APPHELP2      = 1500
  22. CONST APPHELP3      = 1700
  23. CONST CHECK         = 2500
  24. CONST TOOBIG        = 6300
  25. CONST BADPATH       = 6400
  26.  
  27. ''Bitmap ID
  28. CONST LOGO = 1
  29.  
  30. ''Disk Sizes
  31.  
  32. GLOBAL File1
  33. GLOBAL File2
  34. GLOBAL WantedDiskSize&
  35.  
  36. ''File Types
  37. GLOBAL DEST$        ''Default destination directory.
  38. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  39. GLOBAL OPTCUR$      ''Option selection from option dialog.
  40. GLOBAL CHECKSTATES$
  41. GLOBAL RUNTIME$
  42. GLOBAL AVITOOLS$
  43. GLOBAL MDKTOOLS$
  44. GLOBAL TOOLS$
  45.  
  46. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  47. WinDir$ = GetWindowsDir()
  48. WinSysDir$ = GetWindowsSysDir()
  49.  
  50. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  51.  
  52. INIT:
  53.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  54.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  55.  
  56.     ' See if I'm running on Kanji Windows
  57.     IF IsValidEnvironment() = 0 THEN
  58.         GOTO BadVersionEnglish
  59.     END IF
  60.  
  61.     MajorVer% = GetWindowsMajorVersion()
  62.     MinorVer% = GetWindowsMinorVersion()
  63.  
  64.     IF  MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  65. BadVersion:
  66.     Msg$ = "本ソフトウェアは、Microsoft Windows バージョン 3.1(またはそれ以上)のオペレーティングシステムでなければ動作しません。" + chr$(13) + chr$(13) + "Windowsのバージョンを更新してください。"
  67.     i% = DoMsgBox(Msg$ , "セットアップ エラー", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  68.         END
  69. BadVersionEnglish:
  70.     Msg$ = "Japanese version of Microsoft Windows version 3.1 or grater is required for this software." + "  Please upgrade your version of Windows"
  71.     i% = DoMsgBox(Msg$,"Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  72.         END
  73.     END IF
  74.  
  75.     SetBitmap CUIDLL$, LOGO
  76.     SetTitle "Video for Windows 1.0"
  77.  
  78.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  79.     IF szInf$ = "" THEN
  80.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  81.     END IF
  82.     ReadInfFile szInf$
  83.  
  84.     WINDRIVE$ = MID$(WinDir$, 1, 1)
  85.  
  86. WELCOME:
  87.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  88.     IF sz$ = "CONTINUE" THEN
  89.         UIPop 1
  90.     ELSE
  91.         GOSUB ASKQUIT
  92.         GOTO WELCOME
  93.     END IF
  94.  
  95. ClearCopyList
  96.  
  97.         WantedDiskSize&=1024000
  98.  
  99.         DiskSize&=GetFreeSpaceForDrive(WINDRIVE$)
  100.  
  101.         If WantedDiskSize& > DiskSize& then
  102.             GOSUB TOOBIG
  103.             ERROR STFQUIT
  104.         EndIf
  105.  
  106. '' Setting RUNTIME files to be copied
  107.         AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  108.         AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  109.         AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  110.  
  111. CopyFilesInCopyList
  112.  
  113. ''Updating WIN.INI and SYSTEM.INI
  114.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  115.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "indeo.drv", cmoOverwrite
  116.         CreateIniKeyValue "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  117.         CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  118.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  119.  
  120. Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  121.  
  122. Run ("profdisp")
  123.  
  124. QUIT:
  125.     ON ERROR GOTO ERRQUIT
  126.  
  127.     IF ERR = 0 THEN
  128.         dlg% = EXITSUCCESS
  129.     ELSEIF ERR = STFQUIT THEN
  130.         dlg% = EXITQUIT
  131.     ELSE
  132.         dlg% = EXITFAILURE
  133.     END IF
  134. QUITL1:
  135.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  136.     IF sz$ = "REACTIVATE" THEN
  137.         GOTO QUITL1
  138.     END IF
  139.     UIPop 1
  140.  
  141.     END
  142.  
  143. ERRQUIT:
  144.     i% = DoMsgBox("セットアップの情報ファイルが壊れています。サポートセンターに連絡してください。","セットアップ エラー", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  145.     i% = DoMsgBox("Setup sources were corrupted, call the included support number", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  146.     END
  147.  
  148. ASKQUIT:
  149.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  150.  
  151.     IF sz$ = "EXIT" THEN
  152.         UIPopAll
  153. ''        ERROR STFQUIT
  154.         END
  155.     ELSEIF sz$ = "REACTIVATE" THEN
  156.         GOTO ASKQUIT
  157.     ELSE
  158.         UIPop 1
  159.     END IF
  160.     RETURN
  161.  
  162. TOOBIG:
  163.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  164.     IF sz$ = "REACTIVATE" THEN
  165.         GOTO TOOBIG
  166.     END IF
  167.     UIPop 1
  168.     RETURN
  169.  
  170. '**
  171. '** Purpose:
  172. '**     Appends a file name to the end of a directory path,
  173. '**     inserting a backslash character as needed.
  174. '** Arguments:
  175. '**     szDir$  - full directory path (with optional ending "¥")
  176. '**     szFile$ - filename to append to directory
  177. '** Returns:
  178. '**     Resulting fully qualified path name.
  179. '*************************************************************************
  180. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  181.     IF szDir$ = "" THEN
  182.         MakePath = szFile$
  183.     ELSEIF szFile$ = "" THEN
  184.         MakePath = szDir$
  185. '   ELSEIF MID$(szDir$, LEN(szDir$), 1) = "¥" THEN
  186.     ELSEIF GetLastChar(szDir$) = ASC("¥") THEN
  187.         MakePath = szDir$ + szFile$
  188.     ELSE
  189.         MakePath = szDir$ + "¥" + szFile
  190.     END IF
  191. END FUNCTION
  192.  
  193.